home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / マック手帳Pro2.4F.sit / マック手帳Pro2.4F / マック手帳Pro folder F / マック手帳Pro（FAT） / TIMETABLE / stack_-1.xml < prev    next >
Extensible Markup Language  |  1996-03-13  |  17KB  |  20 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE stack PUBLIC "-//Apple, Inc.//DTD stack V 2.0//EN" "" >
  3. <stack>
  4.     <name>in</name>
  5.     <id>-1</id>
  6.     <cardCount>1</cardCount>
  7.     <cardID>2977</cardID>
  8.     <listID>2261</listID>
  9.     <cantModify><false /></cantModify>
  10.     <cantDelete><false /></cantDelete>
  11.     <cantAbort><false /></cantAbort>
  12.     <cardSize>
  13.         <width>512</width>
  14.         <height>342</height>
  15.     </cardSize>
  16.     <script>on openCardSend colorMe to this cardpass openCardend openCardon closeCardlock screenpass closeCardend closeCardon colorMeAddColor colorCard,stamp,0end colorMeon openStackAddColor installnikepass openStackend openStackon closeStackAddColor removekukuripass closeStackend closeStackon nikeset userLevel to 5if there is a menu "ﾃε溪王ﾅｸ" then delete menu "ﾃε溪王ﾅｸ"if there is a menu "ﾃｯ窶愿ｨW" then delete menu "ﾃｯ窶愿ｨW"if there is a menu "竏ｫïｬ≫ˆž" then delete menu "竏ｫïｬ≫ˆž"if there is a menu "ﾎｩﾂｿ竕､ﾅｸ" then delete menu "ﾎｩﾂｿ竕､ﾅｸ"if there is a menu "ﾃδｴ窶ｺﾆ’" then delete menu "ﾃδｴ窶ｺﾆ’"if there is a menu "ﾂｵﾃƒïｬﾂｺïｬ≫┐竏照’" then delete menu "ﾂｵﾃƒïｬﾂｺïｬ≫┐竏照’"if there is a menu "ﾂｬ竏槐ｸ" then delete menu "ﾂｬ竏槐ｸ"createFileMenucreateEditMenucreateFunctionMenucreateMoveMenucreateAddMenuend nikeon kukurireset menuBarend kukurion createFileMenuif there is a menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣" then exit createFileMenucreate menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"put createFileMenuItems() into menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣" with menuMsg createFileMenuMsgs()disable menuItem 5 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"disable menuItem 6 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"disable menuItem 8 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"disable menuItem 9 of menu "ﾃ液ﾃ院ﾃ韻ﾃ嘉｣"end createFileMenufunction createFileMenuItemsRETURN "ﾃｪVﾃ｣K" & RETURN & ﾂｬ"ﾃ､Jﾃ‡竕 " & RETURN & ﾂｬ"ﾃｯﾂｬﾃ‡竏づ‡ﾃˆ" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃｳpﾃｩﾃ愿ｪ窶ｺﾃｭﾃ‹" & RETURN & ﾂｬ"ﾃ ﾃ崚ｧﾂｸ" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ映ﾃ…[ﾃ運ﾃｩﾃ甘‡ﾃ凝ｧﾃｻﾃ‡窶ｺ" & RETURN & ﾂｬ"ﾃ映ﾃ…[ﾃ運ﾃｨﾃｫﾃ‡ﾂｴﾃｧﾃｻﾃ‡窶ｺ" & RETURN & ﾂｬ"ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ叡ﾃ益" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ駅ﾃ嘉｣ﾃ益" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃｨIﾃｳﾏ\" & RETURNend createFileMenuItemsfunction createFileMenuMsgsRETURN "nStack" & RETURN &  ﾂｬ"oStack" & RETURN &  ﾂｬ"cStack" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"verUp" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"oHelp" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"endPim"end createFileMenuMsgson createEditMenuif there is a menu "ﾃｯ窶愿①ﾃｨW" then exit createEditMenucreate menu "ﾃｯ窶愿①ﾃｨW"put createEditMenuItems() into menu "ﾃｯ窶愿①ﾃｨW" with menuMsg createEditMenuMsgs()disable menuItem 11 of menu "ﾃｯ窶愿①ﾃｨW"end createEditMenufunction createEditMenuItemsRETURN "ﾃｩﾃ甘‡ﾃ凝ｨﾂ｡ﾃ‡ﾂｵ" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ雨ﾃ叡ﾃ曳" & RETURN & ﾂｬ"ﾃ嘘ﾃ鋭ﾃ…[" & RETURN & ﾂｬ"ﾃ謁ﾃ…[ﾃ厩ﾃ曳" & RETURN & ﾂｬ"ﾃｨﾂ｡ﾃ｣ﾃｩ" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄" & RETURN & ﾂｬ"ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ映ﾃ…[ﾃ運ﾃｧﾃ湘ｪﾂｨ" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ｣ﾃ崚‡ﾂｴﾃｳeﾃｳﾂ ﾃｧﾃ古ｨﾃｺ" & RETURNend createEditMenuItemsfunction createEditMenuMsgsRETURN "cancel" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"cut" & RETURN &  ﾂｬ"copy" & RETURN &  ﾂｬ"paste" & RETURN &  ﾂｬ"delete" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"nCard" & RETURN &  ﾂｬ"dCard" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"dSpace"end createEditMenuMsgson createFunctionMenuif there is a menu "ﾃ｣@ﾃ①ﾃｮ¥" then exit createFunctionMenucreate menu "ﾃ｣@ﾃ①ﾃｮ¥"put createFunctionMenuItems() into menu "ﾃ｣@ﾃ①ﾃｮ¥" with menuMsg createFunctionMenuMsgs()disable menuItem 1 of menu "ﾃ｣@ﾃ①ﾃｮ¥"disable menuItem 2 of menu "ﾃ｣@ﾃ①ﾃｮ¥"disable menuItem 4 of menu "ﾃ｣@ﾃ①ﾃｮ¥"disable menuItem 6 of menu "ﾃ｣@ﾃ①ﾃｮ¥"end createFunctionMenufunction createFunctionMenuItemsRETURN "ﾃ･ﾃｼﾃｧﾄｱ" & RETURN & ﾂｬ"ﾃ噂ﾃ…[ﾃ曳" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ嘉､ﾃ厩ﾃ曳" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ雲ﾃ韻ﾃ陰ﾃ嘉｣" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ嘉…ﾃ叡ﾃ瓜ﾃ…[ﾃ姥" & RETURNend createFunctionMenuItemsfunction createFunctionMenuMsgsRETURN "" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"msg"end createFunctionMenuMsgson createMoveMenuif there is a menu "ﾃ 竅„ﾃ①ﾃｬﾃ†" then exit createMoveMenucreate menu "ﾃ 竅„ﾃ①ﾃｬﾃ†"put createMoveMenuItems() into menu "ﾃ 竅„ﾃ①ﾃｬﾃ†" with menuMsg createMoveMenuMsgs()disable menuItem 7 of menu "ﾃ 竅„ﾃ①ﾃｬﾃ†"end createMoveMenufunction createMoveMenuItemsRETURN "ﾃ･vﾃｩZﾃ｣@" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃｩﾃｻﾃ･vﾃ⑥ﾃ雨ﾃ嘉･ﾃ嘉ｬﾃ雲ﾃ…[" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ嘉…ﾃ…[ﾃ嘉｣ﾃｳ¥ﾃｱﾃ’" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ韻ﾃ嘉ｬﾃ映ﾃ叡ﾃ丑ﾃ厩" & RETURN & ﾂｬ"-" & RETURN & ﾂｬ"ﾃ越ﾃ…[ﾃ嘉„" & RETURNend createMoveMenuItemsfunction createMoveMenuMsgsRETURN "calculator" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"clock" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"mail" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"" & RETURN &  ﾂｬ"oHome"end createMoveMenuMsgson createAddMenuif there is a menu "ﾃ､gﾃ①ﾃｭﾂ｣" then exit createAddMenucreate menu "ﾃ､gﾃ①ﾃｭﾂ｣"put createAddMenuItems() into menu "ﾃ､gﾃ①ﾃｭﾂ｣" with menuMsg createAddMenuMsgs()end createAddMenufunction createAddMenuItemsRETURN "ﾃ､gﾃｭﾂ｣ﾃ噂ﾃ液ﾃ曳ﾃ嘉…ﾃ泳ﾃ嘉姪…[" & RETURNend createAddMenuItemsfunction createAddMenuMsgsRETURN "menu"end createAddMenuMsgson nStackget line 1 to 3 of InputDialog ("ﾃｪVﾃ｣Kﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ湘ｪﾂｨﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ","ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺﾃ‡ﾃε影ﾃ嘉ｬﾃ益ﾃ嘉･ﾃ…[ﾃ曳ﾃ‡ï｣ｿﾃｩgﾃｳpﾃ‡竏妥‡ﾃ暗ｨﾃ催ｧﾃ｡ﾃ‡ﾃ陛…uﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺﾃ…vﾃ‡ï｣ｿﾃ丑ﾃ嘉､ﾃ叡ﾃ丑ﾃ‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③",ﾂｬ"ﾃｧﾃ湘ｪﾂｨ,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣,,ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ","ADDRESS,BUSINESS,FREE,SCHEDULE")put it into form1get line 1 of form1put it into temp1get line 2 of form1put it into kakunin1get line 3 of form1put it into name1if kakunin1 is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" thenexit nStackend ifif kakunin1 is "ﾃｧﾃ湘ｪﾂｨ" thenif temp1 is "ADDRESS" thenput name1 & ".ADD" into asave stack "ADDRESS" as  stack ago to stack aexit nStackend ifif temp1 is "BUSINESS" thenput it & ".BUS" into bsave stack "BUSINESS" as  stack bgo to stack bexit nStackend ifif temp1 is "FREE" thenput it & ".FRE" into fsave stack "FREE" as  stack fgo to stack fexit nStackend ifif temp1 is "SCHEDULE" thenput it & ".SCH" into ssave stack "SCHEDULE" as  stack sgo to stack sexit nStackend ifexit nStackend ifif kakunin1 is "ﾃ‡ﾂｪﾃ‡ﾃεｫﾂｺ" thenget line 1 to 3 of InputDialog ("ﾃｪVﾃ｣Kﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｧﾃ湘ｪﾂｨﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ","","ﾃｧﾃ湘ｪﾂｨ,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","MEMO,TIMETABLE")put it into form2get line 1 of form2put it into temp2get line 2 of form2put it into kakunin2get line 3 of form2put it into name2if kakunin2 is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" thenexit nStackend ifif kakunin2 is "ﾃｧﾃ湘ｪﾂｨ" thenif temp2 is "MEMO" thenput it & ".MEM" into msave stack "MEMO" as  stack mgo to stack mexit nStackend ifif temp2 is "TIMETABLE" thenput it & ".TIM" into tsave stack "TIMETABLE" as  stack tgo to stack texit nStackend ifexit nStackend ifexit nStackend ifend nStackon oStackanswer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾆ津‡窶｡ﾃｧ¥ﾃ‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" thenexit oStackend ifif it is "ﾃ‡ﾃ陛‡ﾂ｢" thenanswer file "ﾃ､Jﾃ‡竕 ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｫIﾃｫï｣ｿﾃ‡ﾂｵﾃ‡ﾆ津｢竏ｫﾃ‡竕･ﾃ‡ﾂ｢ﾃ③" of type STAKif it is empty thenexit oStackend ifgo to stack itend ifend oStackon cStackdomenu "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾃˆ"end cStackon moveDataget line 1 to 4 of InputDialog ("ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","ﾃ 竅„ﾃｬﾃ†ﾃ･竕･ﾃ厩ﾃ運ﾃ叡ﾃ丑,ﾃ 竅„ﾃｬﾃ†ﾃｪﾃ甘厩ﾃ運ﾃ叡ﾃ丑","ﾃ 竅„ﾃｬﾃ†ﾃ･竕･ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ,ﾃ 竅„ﾃｬﾃ†ﾃｪﾃ甘厩ﾃ運ﾃ叡ﾃ丑ﾃｱﾂｺ","ﾃ､Jﾃｩn,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","ADDRESS,BUSINESS")put it into aaget line 1 of aaput it into bbget line 2 of aaput it into ccget line 3 of aaput it into ddget line 4 of aaput it into eeif cc is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" thenexit moveDataend ifif cc is "ﾃ､Jﾃｩn" thenif bb is "ADDRESS" thenanswer "ﾃ烏ﾃ丑ﾃ厩ﾃ益ﾃ嘉･ﾃ厩ﾃｨZﾃｨﾃ､ﾃｲ^ﾃ‡ﾃε頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬ4.0ﾃ ﾂｻﾃｧ~ﾃ‡ﾃε映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃ 竅„ﾃｬﾃ†ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" thenexit moveDataend ifif it is "ﾃ‡ﾃ陛‡ﾂ｢" thenput "ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†ﾃｨﾃ„ﾃｮﾄｱﾃｭﾃœ"lock screengo to stack eeif ee is empty thentyudanexit moveDataend ifgo to cd 2domenu "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄"go to stack ddif dd is empty thentyudanexit moveDataend ifdomenu "ﾃｫOﾃ‡ﾃε雨ﾃ…[ﾃ栄"put number of this cd into endCardsrepeat with i = 2 to endCardsgo to cd iselect text of bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"put the selectedText into aselect text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"put the selectedText into bselect text of bg fld "ﾃｪﾂｴﾃｯﾂ 2"put the selectedText into cselect text of bg fld "ﾃｮNﾃｳïｬ‚2"put the selectedText into dselect text of bg fld "ﾃ･ﾃ･ﾃ｢tﾃ･^2"put the selectedText into eselect text of bg fld "ﾃ､ﾂｱﾃｩx2"put the selectedText into fselect text of bg fld "ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬ2"put the selectedText into gselect text of bg fld "ﾃｩgﾃｳpﾃ｣@ﾃｩﾃŒ2"put the selectedText into hselect text of bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"put the selectedText into iselect text of bg fld "IDﾃｮ窶佚ｧﾃœ2"put the selectedText into jselect text of bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"put the selectedText into kselect text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"put the selectedText into lselect text of bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"put the selectedText into mselect text of bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"put the selectedText into nselect text of bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"put the selectedText into oselect text of bg fld "ﾃｨZﾃｨﾃ､2"put the selectedText into pselect text of bg fld "ﾃｬdﾃｲb2"put the selectedText into qselect text of bg fld "FAX2"put the selectedText into rselect text of bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ4"put the selectedText into sselect text of bg fld "ﾃｨZﾃｨﾃ､4"put the selectedText into tselect text of bg fld "ﾃｬdﾃｲb4"put the selectedText into uselect text of bg fld "ﾃ榎ﾃ臼ﾃ悦ﾃ嘉｣2"put the selectedText into vselect text of bg fld "ﾃ･gﾃｫ窶”2"put the selectedText into wselect text of bg fld "FAX4"put the selectedText into xgo to stack eeadd 1 to igo to cd iput a into bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"put b into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"put c into bg fld "ﾃｪﾂｴﾃｯﾂ 2"put d into bg fld "ﾃｮNﾃｳïｬ‚2"put e into bg fld "ﾃ･ﾃ･ﾃ｢tﾃ･^2"put f into bg fld "ﾃ､ﾂｱﾃｩx2"put g into bg fld "ﾃ英ﾃ噂ﾃ嘘ﾃ嘉ｬ2"put h into bg fld "ﾃｩgﾃｳpﾃ｣@ﾃｩﾃŒ2"put i into bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"put j into bg fld "IDﾃｮ窶佚ｧﾃœ2"put k into bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"put l into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"put m into bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"put n into bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"put o into bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"put p into bg fld "ﾃｨZﾃｨﾃ､2"put q into bg fld "ﾃｬdﾃｲb2"put r into bg fld "FAX2"put s into bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ4"put t into bg fld "ﾃｨZﾃｨﾃ､4"put u into bg fld "ﾃｬdﾃｲb4"put v into bg fld "ﾃ榎ﾃ臼ﾃ悦ﾃ嘉｣2"put w into bg fld "ﾃ･gﾃｫ窶”2"put x into bg fld "FAX4"put "ﾃｫﾂｸﾃｧﾂｰ" & i & "ﾃｱﾃ｡ﾃ‡窶ｹﾃ‡竕暗ｨIﾃｳﾏ\ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"subtract 1 from igo to stack ddend repeatowariexit moveDataend ifexit moveDataend ifif bb is "BUSINESS" thenanswer "ﾃ烏ﾃ丑ﾃ厩ﾃ益ﾃ嘉･ﾃ厩ﾃｱﾂｺﾃｩhﾃ､ﾂｫﾃｳﾃｹﾃ‡ﾃε頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬ2.0ﾃ ﾂｻﾃｧ~ﾃ‡ﾃε映ﾃ…[ﾃ運ﾃ‡ï｣ｿﾃ 竅„ﾃｬﾃ†ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡竏妥③ﾃ‡ﾃ甘‡ﾃ偲‡ﾂｵﾃ‡ﾂ｢ﾃ‡竕暗‡竏妥‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" thenexit moveDataend ifif it is "ﾃ‡ﾃ陛‡ﾂ｢" thenput "ﾃ映ﾃ…[ﾃ運ﾃ 竅„ﾃｬﾃ†ﾃｨﾃ„ﾃｮﾄｱﾃｭﾃœ"lock screengo to stack eeif ee is empty thentyudanexit moveDataend ifgo to cd 2domenu "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄"go to stack ddif dd is empty thentyudanexit moveDataend ifdomenu "ﾃｫOﾃ‡ﾃε雨ﾃ…[ﾃ栄"put number of this cd into endCardsrepeat with i = 2 to endCardsgo to cd iselect text of bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"put the selectedText into aselect text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"put the selectedText into bselect text of bg fld "ﾃｪﾂｴﾃｯﾂ 2"put the selectedText into cselect text of bg fld "ﾃｮNﾃｳïｬ‚2"put the selectedText into dselect text of bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"put the selectedText into iselect text of bg fld "IDﾃｮ窶佚ｧﾃœ2"put the selectedText into jselect text of bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"put the selectedText into kselect text of bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"put the selectedText into lselect text of bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"put the selectedText into mselect text of bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"put the selectedText into nselect text of bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"put the selectedText into oselect text of bg fld "ﾃｨZﾃｨﾃ､2"put the selectedText into pselect text of bg fld "ﾃｬdﾃｲb2"put the selectedText into qselect text of bg fld "ﾃｬdﾃｲb4"put the selectedText into rselect text of bg fld "FAX2"put the selectedText into sselect text of bg fld "FAX4"put the selectedText into tselect text of bg fld "ﾃｬﾋ凖ｩﾃｻ2"put the selectedText into uselect text of bg fld "ﾃｨﾃ催ｨﾃ､2"put the selectedText into vselect text of bg fld "ﾃｮﾄｱﾃｧl"put the selectedText into wgo to stack eeadd 1 to igo to cd iput a into bg fld "ﾃｩﾃ…ﾃｱﾂｺ2"put b into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永2"put c into bg fld "ﾃｪﾂｴﾃｯﾂ 2"put d into bg fld "ﾃｮNﾃｳïｬ‚2"put i into bg fld "ﾃ瑛ﾃ叡ﾃ曳ﾃ｣ﾂｫ2"put j into bg fld "IDﾃｮ窶佚ｧﾃœ2"put k into bg fld "ﾃ｢ﾃ氾ｩ窶禿ｱﾂｺ2"put l into bg fld "ﾃ液ﾃ嘉､ﾃ卯ﾃ永4"put m into bg fld "ﾃｯﾃｮﾃｨﾃｪﾃｱﾂｺ2"put n into bg fld "ﾃｱï｣ｿﾃｪEﾃｱﾂｺ2"put o into bg fld "ﾃｳXﾃｯﾃｷﾃｮ窶佚ｧﾃœ2"put p into bg fld "ﾃｨZﾃｨﾃ､2"put q into bg fld "ﾃｬdﾃｲb2"put r into bg fld "ﾃｬdﾃｲb4"put s into bg fld "FAX2"put t into bg fld "FAX4"put u into bg fld "ﾃｬﾋ凖ｩﾃｻ2"put v into bg fld "ﾃｨﾃ催ｨﾃ､2"put w into bg fld "ﾃｮﾄｱﾃｧl"put "ﾃｫﾂｸﾃｧﾂｰ" & i & "ﾃｱﾃ｡ﾃ‡窶ｹﾃ‡竕暗ｨIﾃｳﾏ\ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"subtract 1 from igo to stack ddend repeatowariexit moveDataend ifexit moveDataend ifexit moveDataend ifend moveDataon owarigo to stack "ﾃ厭ﾃ叡ﾃ丑ﾃｩﾃ凝ｭ窶 Pro"go to cd "ﾃ曳ﾃ叡ﾃ益"unlock screenanswer "ﾃ､ﾃ†ﾃｳﾏ\ﾃ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"end owarion tyudango to stack "ﾃ厭ﾃ叡ﾃ丑ﾃｩﾃ凝ｭ窶 Pro"go to cd "ﾃ曳ﾃ叡ﾃ益"unlock screenanswer "ﾃ烏ﾃ嘉｢ﾃ…[ﾃ‡邃｢ﾃｮ竕 ﾃｪ竏づ‡ﾂｵﾃ‡窶ｹﾃ‡ﾂｵﾃ‡ﾎｩﾃ③"end tyudanon verUpget line 1 to 2 of InputDialog ("ﾃ頴ﾃ…[ﾃ姥ﾃ嘉｡ﾃ嘉ｬﾃ陰ﾃ叡ﾃ益ﾃ雲ﾃ韻ﾃ陰ﾃ嘉ｧﾃ碓","","","ﾃ､Jﾃｩn,ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣","TYPE P-B,TYPE P-F,TYPE P-S,OPTION TC")put it into aget line 1 of aput it into bget line 2 of aput it into cif c is "ﾃ鵜ﾃ嘉嘉嘉ｬﾃ瓜ﾃ嘉｣" thenexit verUpend ifif c is "ﾃ､Jﾃｩn" thenanswer file "ﾃ英ﾃ叡ﾃ荏ﾃ液ﾃ院ﾃ韻ﾃ嘉｣ﾃ‡ﾃ陛‡ﾂｫﾃ‡ﾂｱﾃ‡竕暗‡竏妥‡ﾂｩﾃ③" of type STAKif it is empty thenexit verUpend ifput it into patchput "ﾃｨﾃ„ﾃｮﾄｱﾃｭﾃœ"wait 3 secsput "ﾃｧXﾃｪVﾃｭﾃœ"lock screengo to stack patchbiginexit verUpend ifend verUpon oHelpgo to stack "ﾃ駅ﾃ嘉｣ﾃ益" in a new windowend oHelpon endPimdomenu "HyperCardﾃｨIﾃｳﾏ\"end endPimon cancelItdomenu "ﾃｩﾃ甘‡ﾃ凝ｨﾂ｡ﾃ‡ﾂｵ"end cancelIton cutItdomenu "ﾃ雨ﾃ叡ﾃ曳"end cutIton copyItdomenu "ﾃ嘘ﾃ鋭ﾃ…["end copyIton pasteItdomenu "ﾃ謁ﾃ…[ﾃ厩ﾃ曳"end pasteIton deleteItdomenu "ﾃｨﾂ｡ﾃ｣ﾃｩ"end deleteIton nCarddomenu "ﾃｪVﾃ｣Kﾃ雨ﾃ…[ﾃ栄"end nCardon dCarddomenu "ﾃ雨ﾃ…[ﾃ栄ﾃｧﾃ古ｨﾃｺ"end dCardon dSpacedomenu "ﾃ厩ﾃ運ﾃ叡ﾃ丑ﾃｪﾃ†ﾃｳﾃｹ"end dSpaceon msgshow msg boxend msgon calculatorgo to stack "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" in a new windowend calculatoron clockgo to stack "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" in a new windowgo to cd 2end clockon mailgo to stack "ﾃ迂ﾃ益ﾃ鰻ﾃ嘉｡ﾃ嘉ｬ" in a new windowgo to cd 3end mailon oHomego to stack homeend oHomeon menuanswer "ﾃ‡ﾂｱﾃ‡ﾃε厩ﾃ運ﾃ叡ﾃ丑ﾃ‡ï｣ｿﾃｯﾂｬﾃ‡竏づ‡ﾆ津‡窶｡ﾃｧ¥ﾃ‡ﾂ｢ﾃ‡窶ｹﾃ‡ﾏ\ﾃ‡ﾃ津‡ﾂｩﾃ③" with "ﾃ‡ﾃ陛‡ﾂ｢" or "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ"if it is "ﾃ‡ﾂ｢ﾃ‡ﾂ｢ﾃ‡ﾂｶ" thenexit menuend ifif it is "ﾃ‡ﾃ陛‡ﾂ｢" thengo to stack "ﾃ厭ﾃ叡ﾃ丑ﾃｩﾃ凝ｭ窶 Pro"go to cd "ﾃ､gﾃｭﾂ｣"exit menuend ifend menu</script>
  17.     <background id="2742" file="background_2742.xml" name="" />
  18.     <card id="2977" file="card_2977.xml" marked="false" name="" owner="2742" />
  19. </stack>
  20.